home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4437 / packed.12 / book2 / book2
Text File  |  1987-04-21  |  4KB  |  100 lines
  1.                     DATABASE TUTORIAL PART 2
  2.  
  3.                            BY DEANO
  4.  
  5. In case you missed last months STOSSER this is a beginners tutorial about
  6. how to write a simple database.  For those of you who read last months
  7. part of the tutorial then this month I will show you the next part of it. 
  8. This month we are going to create a file.
  9.  
  10. Note that the main program with the create file routine installed can be 
  11. found on this disk.  We are just going to look at the routine for creating 
  12. a file. First, lets keep the user informed of how many files are in memory 
  13. at the moment.
  14.  
  15. 225 locate 0,18 : print "FILES:";FILES
  16.  
  17. After every routine, the program will come back to this line. This is to
  18. keep the user updated on how many files are held.
  19.  
  20. Right, everythings set up. Now we just have to wait for the user to select 
  21. a function.
  22.  
  23. 230 rem---WAIT FOR AN INPUT
  24. 240 K$=input$(1)
  25. 250 rem---CHECK WHICH KEY HAS BEEN PRESSED
  26. 260 if K$="C" or K$="c" then goto 400
  27. 270 if K$="D" or K$="d" then goto 500
  28. 280 if K$="F" or K$="f" then goto 600
  29. 290 if K$="L" or K$="l" then goto 700
  30. 300 if K$="P" or K$="p" then goto 800
  31. 310 if K$="Q" or K$="q" then goto 900
  32. 320 K$="" : goto 240
  33.  
  34. The varible K$ is used to store the users selection. At the moment he only 
  35. chose C to create a file....the program will then go to line 400 which is 
  36. the input routine. Line 320 clears the varible and returns to line 240 
  37. ready to await another selection.
  38.  
  39. 400 rem----CREATE A FILE
  40. 410 curs on : inc FILES
  41. 420 rem---GET SURNAME
  42. 430 X=8 : Y=4 : gosub 2000 : SURNAME$(FILES)=K$
  43. 440 rem---GET NAME
  44. 450 X=5 : Y=6 : gosub 2000 : NAME$(FILES)=K$
  45. 460 rem---GET ADDRESS
  46. 470 X=8 : Y=8 : gosub 2000 : ADDR$(FILES)=K$
  47. 480 rem---GET TOWNS
  48. 490 X=6 : Y=10 : gosub 2000 : T0WN$(FILES)=K$
  49. 500 rem---GET POSTCODE
  50. 510 X=9 : Y=12 : gosub 2000 : POST$(FILES)=K$
  51. 520 rem---GET PHONE NUMBER
  52. 530 X=6 : Y=14 : gosub 2000 : PHONE$(FILES)=K$
  53. 540 rem---GET INFO
  54. 550 X=5 : Y=16 : gosub 2000 : INFO$(FILES)=K$
  55. 555 rem---FILE CREATED SO GO BACK AND WAIT FOR NEXT INPUT
  56. 560 K$="" : curs off : gosub 2070 : goto 225
  57.  
  58. This is a kind of set up to enter the information needed. The X and Y 
  59. variables hold the X and Y co-ordinates of the text cursor. Notice at the
  60. start of this part we turns the cursor on and add one to the FILES 
  61. variable.  This is the number of the file we are currently creating.
  62.  
  63. The x and y variables are needed to postion the text cursor just after 
  64. each field name...ie SURNAME, NAME, etc... The routine then does a 
  65. subroutine to the routine that actually enters the info into a variable. 
  66. Once the file has been created the program turns off the cursor, does a 
  67. subroutine to clear the wording entered off the screen then goes back to 
  68. wait for another selection from the user.
  69.  
  70. 2000 rem---INPUT ROUTINE
  71. 2010 locate X,Y
  72. 2020 input "";K$
  73. 2030 if K$="" then K$="UNKNOWN"
  74. 2040 return 
  75.  
  76. The actual input routine. Note how we use the locate command to postion
  77. the cursor at the right place for every field name.  Line 2020 allows you
  78. to type in the information while line 2030 checks if the users just 
  79. pressed enter without typing anything in.
  80.  
  81. 2070 rem---CLEAR INFO OFF SCREEN
  82. 2080 wait 30
  83. 2090 locate 8,4 : print space$(50)
  84. 2100 locate 5,6 : print space$(53)
  85. 2110 locate 8,8 : print space$(50)
  86. 2120 locate 6,10 : print space$(52)
  87. 2130 locate 9,12 : print space$(49)
  88. 2140 locate 6,14 : print space$(52)
  89. 2150 locate 5,16 : print space$(53)
  90. 2160 return
  91.  
  92. The final part which clears the wording off the screen once the file is
  93. created. The space$ command just prints a line of spaces to clear it.
  94.  
  95. Well thats it for this month. Feel free to play around with the routine 
  96. on disk. Next month we'll add a delete file function.
  97.  
  98. This is Deano signing off
  99.  
  100.